home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / vector / chrtdraw / !ChartDraw / !Run < prev    next >
Text File  |  1996-05-15  |  1KB  |  43 lines
  1. | > !ChartDraw.!Run
  2. |
  3. | Run file for ChartDraw
  4. |
  5. | by Chris Johnson
  6. |
  7. RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
  8. |
  9. If "<ChartDraw$Running>" = "yes" Then Error ChartDraw is already running
  10. |
  11. IconSprites <Obey$Dir>.!Sprites
  12. Set File$Type_7F1 ChartFile
  13. Set Alias$@RunType_7F1 /<Obey$Dir>.!Run %%*0
  14. |
  15. | Check memory allocation
  16. WimpSlot -min 192K -max 192K
  17. |
  18. | Find path to file
  19. Set ChartDraw$Dir <Obey$Dir>
  20. |
  21. set temp$flag 1
  22. RMEnsure ABCLibrary 0 set temp$flag 0
  23. RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.ABCLib
  24. RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
  25. unset temp$flag
  26. |
  27. set temp$flag 1
  28. RMEnsure CJWimpUtil 0 set temp$flag 0
  29. RMEnsure CJWimpUtil 0.17 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.cjWimpUtil
  30. RMEnsure CJWimpUtil 0.17 Error You need the CJWimpUtil module installed
  31. |
  32. set temp$flag 1
  33. RMEnsure CJdrawUtil 0 set temp$flag 0
  34. RMEnsure CJdrawUtil 0.15 if "<temp$flag>" = "1" Then Error 0 Old CJdrawUtil installed Else RMLoad <Obey$Dir>.cjdrawUtil
  35. RMEnsure CJdrawUtil 0.15 Error You need the CJdrawUtil module installed
  36. unset temp$flag
  37. |
  38. | Check memory allocation
  39. WimpSlot -min 176K -max 176K
  40. |
  41. | Now start program
  42. Run <ChartDraw$Dir>.!Runimage %*0
  43.